From: Jim Blandy <jimb@redhat.com>
Date: Thu, 17 Jun 1993 02:53:14 +0000 (+0000)
Subject: * ls-lisp.el (insert-directory): If no handler, convert SWITCHES
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~95271
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=cc2f3b6482df81ec997c43cca46f7c1166be50db;p=emacs.git

* ls-lisp.el (insert-directory): If no handler, convert SWITCHES
	from a string to a list of characters.
---

diff --git a/lisp/ls-lisp.el b/lisp/ls-lisp.el
index 54da7fdc438..aa97960750c 100644
--- a/lisp/ls-lisp.el
+++ b/lisp/ls-lisp.el
@@ -62,10 +62,12 @@ It does not support ordinary shell wildcards; instead, it allows
 regular expressions to match file names.
 
 The switches that work are: A a c i r S s t u"
-  (let (handler ((find-file-name-handler file)))
+  (let ((handler (find-file-name-handler file)))
     (if handler
 	(funcall handler 'insert-directory file switches
 		 wildcard full-directory-p)
+      ;; Convert SWITCHES to a list of characters.
+      (setq switches (append switches nil))
       (if wildcard
 	  (setq wildcard (file-name-nondirectory file) ; actually emacs regexp
 		;; perhaps convert it from shell to emacs syntax?